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DENT = "1-005" 
BEGIN 
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DIGITAL EQUIPMENT CORPORATION, MAYRARD. MASSACHUSETTS. 
‘® ALL RIGHTS RESERVED. 


'® al SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gta 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sof Tw ARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: onmpohat ton NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED 6Y DIGITAL. 
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ABSTRACT: 
! This module contains the BASIC RAD$ function, 
$ Boss which converts a 16-bit word to three ASCII characters. 
8 0038 ENVIRONMENT: VAX-11 User Mode 
0 0040 AUTHOR: John Sauter, CREATION DATE: 01-MAY-1979 
2 004 i MODIFIED BY: 
3 004 ' 
4 boes ! 1-001 - Original. 
5 045 ‘ 1~908 - The BASSRAD syeen m must be global! JBS 02-MAY-1979 
6 004 ! 1-003 - Change LIB$S and OTS$S to STR$. JBS 21-MAY-1979 
7 004 ! 1-004 - Change the call to STRSCOPY. Jes 16-JUL-1979 
8 0048 ! 1-005 - Improve a comment. JBS 07-NOV-1979 
q 0049 len 
0 0050 
1 0051 '<BLF /PAGE> 
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BASRAD 


3 ¢ ' 
4 ! SWITCHES: 
3 O83 
rtf 0086 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
59 0038 ! 
60 BR? ' LINKAGES: 
61 60 ! 
6¢ 0061 ' NONE 
6 Spee ! 
64 449 ' TABLE OF CONTENTS: 
65 064 ! 
66 0065 
67 006 FORWARD ROUTINE 
68 006 BASSRADSO : NOVALUE; ! convert word to three chars 
69 0068 
70 0069 ! 
71 0070 ' INCLUDE FILES: 
7 0071 ' 
7 007 


™“ 


REQUIRE "RTLIN:RTILPSECT'; 
LIBRARY ‘RTLSTARLE'; 


Macros for defining psects 


System symbols 
i] 

i MACROS: 
NONE 
EQUATED SYMBOLS: 


GLOBAL BIND 
ROUT INE 
BASSRAD = BASSRADSO; 


Synonym used by compiled code 
' 


PSECTS: 

DECLARE_PSECTS (BAS); 
i OWN STORAGE: 
; NONE 
i 


Declare psects for BAS$ facility 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
RSOASC : NOVALUE, 
STRSCOPY_R, 
LIBSSTOP™: ‘NOVALUE; 


OAK WN OO OONOUE WN O VONOUS WOO 


Convert radix50 to ASCII 
Copy a string by reference 
Signal a fatal error 
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BASSRADSO 16-Sep-1984 01:00: AX-11 Bliss-32 V4.0-74 Pa 
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wcovterctig 1. Baretta:  Soneel seks Oy pital test Garten | 
@ H u strin 
' Value fo convert ° 


NUMBER 
) : NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


Convert a 16-bit word into an ASCII string. The word is 
encoded as RADIX50. 


This function should not be used for new development; 
someday we hope to do away with this extra character set. 


FORMAL PARAMETERS: 


RESULT .wt.dx A string containing the 3 characters in the word 
NUMBER. rw.v The 16-bit word into which the characters are 


| 
| 
packed. 
IMPLICIT INPUTS: 
{ 


NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


LOCAL 
THREE_CHARS : VECTOR (3, BYTE); 
¢ 
: Call the FORTRAN-compatability routine to convert radix-50 to ASCII. 


RSOASC (ZREF (3), NUMBER, THREE_CHARS (0)); 
! Copy the three characters back to the caller's descriptor. 


STRSCOPY_R (.RESULT, ZREF (3), THREE_CHARS ([0]); 
END; ! end of BASS$RADSO 
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.EXTRN RSOASC 
-EXTRN LIBSSTOP 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


STRSCOPY_R 


0000 00000 -ENTRY BASS$RAD5SO, Save nothin ; 0200 
5E 08 9 boos SUBL2 ° 3 
4 AE 9F 000 PUSHAB THREE CHARS 3 0247 
8 ag 9F 00008 PUSHAB ys ta fi 3 
08 AE 0 0 00008 MOVL a (SP) : 
08 AE OF O00F PUSHAB 8( SP) : 
00000000G 00 035 FB § CALLS #3, RSOASC 3 
04 AE 9F 0001 PUSHAB THREE_CHARS ; 0251 
04 AE 0 0 0001 MOVL #3, 4TSP) 3 
04 AE 9F 000 PUSHAB 4(§P) : 
04 AC ODD 000 PUSHL > ee : 
00000000G 00 03 FB 00026 CALLS #5, STRSCOPY_R : 
04 0002D RET 3; 0252 
; Routine Size: 46 bytes, Routine Base: _BASSCODE + 0000 
3; «6161 0253 (#1 
: 162 0254 1 END ! end of module BAS$RAD50 
3; «(163 0255 1 
> «164 0256 0 ELUDOM 
BASSRAD== BAS$RAD50 
é PSECT SUMMARY 
; Name Bytes Attributes 
; _BASSCODE 46 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; ee ee i ey Ree Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 


COMMAND QUALIFIERS 
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BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=L1S$:BASRADS0/0BJ=0BJ$:BASRADSO MSRC$:BASRADSO/UPDATE=(ENH$:BASRADSO) 
46 its + 0 data bytes 


an ties 
he Time: 
Lines/CPU M 4736 
Lerenes/CPU-Rin: 126 

ry Ue : 36 pages 
Compi atten Complete 
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